Những câu hỏi liên quan
nhattien nguyen
Xem chi tiết
việt lê
4 tháng 1 2022 lúc 21:45

A. Gõ 3, 4, 5 sau đó nhấn phím Enter (giữa hai số liên tiếp gõ dấu phẩy);  

Bình luận (0)
nhattien nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 1 2022 lúc 11:27

Chọn B

Bình luận (0)
Nguyễn Thảo Vy
Xem chi tiết
Anthea2148
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 11 2021 lúc 23:29

Câu 3: 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Bình luận (0)
Khánh Mỹ
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:45

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

writeln('Xau vua nhap la: ',st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln('Xau moi la: ',st);

readln;

end.

Bình luận (0)
LOLILOLI
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 11 2021 lúc 0:28

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

writeln(x-y);

writeln(x*y);

writeln(x/y:4:2);

readln;

end.

Bình luận (0)
Phông
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 12 2020 lúc 21:08

a) var a:real;

b:string;

a:=20.5;

readln(b);

b) var x:string;

y:integer;

x:='Ha Noi'

readln(y);

Bình luận (0)
Nhi Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2022 lúc 14:42

Chọn A

Bình luận (0)
Nguyễn Taetruc
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 19:23

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

for i:=1 to d do 

  s[i]:=upcase(s[i]);

writeln(s);

readln;

end.

Bình luận (0)